home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / docs / help / aguidehowwrite.lha / amigaguide_how_to_write / miscellaneous / Testprogram_close.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-07-31  |  331 b   |  13 lines
  1. /* A test ARexx Program for Multiview/Amigaguide */
  2.  
  3. CALL CLOSE('STDOUT')
  4. CALL OPEN('STDOUT','CON:50/60/510/70/TEST WINDOW FOR MULTIVIEW AREXX PROGRAM')
  5. SAY 'a'x||' You have just EXITED the node about ONOPEN and ONCLOSE'
  6. SAY 'a'x'        This window should  go away in 4 seconds.'
  7.  
  8. DO WHILE TIME('E') < 4
  9. END
  10.  
  11. CLOSE('STDOUT')
  12. EXIT
  13.